#! /usr/bin/perl

use diagnostics;
use strict;
use File::Basename;

my $file = '/home/clock/teste/a.a.a';
my $t = basename($file);
print $t;